home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PROGEDIT
/
3458B.ZIP
/
AMAC44B.ZIP
/
MSG004.QM
< prev
next >
Wrap
Text File
|
1992-04-26
|
5KB
|
102 lines
* msg004.qm
* Miscellaneous Message Macros
* Written By Tom Hogshead
* [ See MSGxx.QM For Use ]
* 4/26/92
* Key Subfile Description
* ===== ============ =================================================
* @(f8) Format Message (For v2.10) |new
*
* {e:\up\MSG??} Return To MSGxx.QM
*
*-- eoi
* M A C R O S
* ------------------------------------------------------------------------
* @(f8) Quote and Format Messages Retaining Sender Initials, For v2.10,
* (Use @8 In msg002.qm For QEdit v2.15)
* ------------------------------------------------------------------------
* This macro reformats any portion of an offline message reader
* messages. Sender initials "xx>" and quote character ">" are left in
* place if they exist on the first line of the marked message. Quote
* character must be ">". If quoting character is not '>', change to
* your quoting character. Character '>' can only exist in columns 1-16
* in block as quote character. The macro operates irrespective of all
* toggles and also replaces "period space" with "period two spaces".
* If a block is marked before invoking this macro, either open or
* closed, it will be reformatted without pause. If no block is marked,
* the macro pauses for the user to select the block end by cursoring
* down and pressing <enter>. Marked message is reformatted to a right
* margin of 60, exclusive of sender initials and quote character. One
* extra space may be added after the ">" by uncommenting the
* "shiftright" line. If the message to be quoted does not contain
* sender initials and quote character, it is formatted like wrappara.
* This macro is a modification of a macro written by Tim Farley.
* ┌───┬─ #255 (may also be space or first letter of message text)
*
* TH> RW> Uuuuuuuuuu uuuuuuuuuu uuuuuuuuuu uuuuuuuuuu uuuuu uuuuu uuuuu uuuuu.
* TH> RW> Vvvvvvvvvv vvvvvvvvvv vvvvvvvvvv vvvvv vvvv vvvvv vvvvv vvvvv vvvvv
* TH> RW> vvvvvvvvvv vvvvvvvvvv. Wwwwwwwww wwwwwwwwww wwwww wwwww. Xxxx xxxxx
* TH> RW> xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx xxxxx. Yyyy yyyyy yyyyy
* TH> RW> yyyyyyyyyy yyyyy.
*
* This message BECOMES this:
* TH> RW> Uuuuuuuuuu uuuuuuuuuu uuuuuuuuuu uuuuuuuuuu uuuuu uuuuu
* TH> RW> uuuuu uuuuu. Vvvvvvvvvv vvvvvvvvvv vvvvvvvvvv vvvvv vvvv
* TH> RW> vvvvv vvvvv vvvvv vvvvv vvvvvvvvvv vvvvvvvvvv. Wwwwwwwww
* TH> RW> wwwwwwwwww wwwww wwwww. Xxxx xxxxx xxxxxxxxxx xxxxxxxxxx
* TH> RW> xxxxxxxxxx xxxxxxxxxx xxxxx. Yyyy yyyyy yyyyy yyyyyyyyyy
* TH> RW> yyyyy.
@f8 macrobegin onewindow setrmargin "60" return togglewordwrap
cursorright gotoblockbeg jtrue A markline
gotoblockbeg jtrue OK makectrofscreen Pause jump B
A: gotoblockend unmarkblock markline prevposition B: markline
OK: gotoblockend endline #173
* --------------------- Replace #255 with space ---------------------*
FindReplace #255 return " " return "GLN" return
* ----------------- Mark/cut block with no initials -----------------*
gotoblockbeg gotocolumn "16" return
Find ">" return "BL" return
jtrue F begline jump C
F: cursorright
C: unmarkblock markcolumn
Find #173 return delline return delch * Delete end block marker
gotocolumn "512" return markcolumn * Make msg wide column blk
addline repeatcmd "4" return
begline #173 * Make space with marker
gotoblockbeg cut cursorleft dropanchor
begline storescrbuff "9" return * Save initials to buff 9
* ---------- Paste block to Nul file, format all paragraphs ----------*
editfile "NUL" return quit gotoblockbeg horizontalwindow
editfile return paste
MORE: wrappara nextpara jtrue MORE
* ----------- Insert initials in front of formatted block -----------*
dropanchor getscrbuff "9" return cut
markline begfile shiftright
* shiftright * For one extra space after ">"
markcolumn endfile begline markcolumn
FindReplace " " return delline paste return "LNG" return
* ---------------------- Make 512 column block -----------------------*
gotocolumn "512" return markcolumn cut quit
* ------------------ Paste block back where it was ------------------*
prevwindow onewindow pasteover
* --------- Replace 'period space' with 'period two spaces' ---------*
findreplace "." " " return "." " " return "LN" return
findreplace "." " " return "." " " return "LN" return
* ------------ Remove blank lines and any extra initials ------------*
gotoblockend unmarkblock cursordown markline
Find #173 return delline return deleteblock
INS: insertline
END: unmarkblock makectrofscreen setrmargin "80" return
*
* 132 bytes Tue 10-02-1990 16:51:06 (TF^F7, Tim's original macro)
* 229 bytes Tue 04-21-1992 15:32:54 (TH @6, mod for v2.10)
* 229 bytes Tue 04-21-1992 15:32:54 (TH @6, to RO #23/1447, 56 col width)
* 229 bytes Wed 04-22-1992 09:38:23 (TH @f8, changed key, 60 col width)